home *** CD-ROM | disk | FTP | other *** search
/ United Public Domain Gold 2 / United Public Domain Gold 2.iso / music_utilities / pt141.dms / pt141.adf / ArexxExamples.lha / EP_nextsubsong.dopus < prev    next >
Text File  |  1993-10-05  |  348b  |  19 lines
  1. /* Eagleplayersteuerung (c) 1993 Henryk Richter */
  2. options results
  3.  
  4. address 'rexx_EP'
  5.  status m pnr
  6.  num = result
  7.  'status p 'num' sub'
  8.  player = result
  9.  if player=="yes" then do
  10.   nextsong
  11.   address 'DOPUS.1'
  12.   toptext 'Eagleplayer: Next Subsong Selected'
  13.  end
  14.  else do
  15.   address 'DOPUS.1'
  16.   toptext 'Eagleplayer: No Subsongs available'
  17.  end
  18. exit
  19.